home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Inside_Connection_The_3_19xx_-.d64 / tic #3_myr_dsr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  55 lines
  1. 0 print "[147]":poke 53281,0:poke 53280,0:poke 646,1:poke 53272,23:goto50
  2. 1 print "[212]he [201]nside [195]onnection #3":print:print "[208]resented [194]y [205]yriad!"
  3. 2 print:print "[200]it [210]eturn!"
  4. 3 getz$:ifz$<>chr$(13)then3
  5. 4 dimb$(141):a%=1:print"[155]loading filenames...[159]":c$=chr$(34):open1,8,0,"$":forn=1to28:get#1,w$:n$=n$+w$:next
  6. 5 get#1,w$,w$,w$,w$
  7. 6 ifstthen14
  8. 7 get#1,w$:ifw$<>c$then6
  9. 8 get#1,x$
  10. 9 get#1,w$:ifw$<>c$thenx$=x$+w$:goto9
  11. 10 b$(a%)=x$:printb$(a%)
  12. 11 get#1,w$:ifw$="s"thena%=a%+1:print"[145]_ seq. file[159]
  13. 12 [139]w$[179][177]""[167]11
  14. 13 [137]5
  15. 14 d%[178]1:m%[178]42:n%[178]1:[160]1
  16. 15 [153][199](14)"loadcont disk menu waitsys";n$:[153]"open press return for next page.
  17. 16 print"[155]"n%"[157][146]"b$(n%)tab(20)"[155]"n%+1"[157][146]"b$(n%+1):n%=n%+2:ifn%<a%andn%<=m%then16
  18. 17 p$="":input"[159] load & print seq. file number [146] ";p$:ifn%>43thenn%=1
  19. 18 p%=val(p$):ifp$=""andn%>42andn%<=a%thenm%=83:n%=43:d%=43:goto15
  20. 19 ifp%<d%orp%>=a%orp>=m%then14
  21. 20 dn=3:sa=0:c$="":print"[147][158] [198]ilename... "b$(p%):input"output to <s>creen or <p>rinter ? s[157][157][157]";in$:ifleft$(in$,1)<>"s"then22
  22. 21 c$="":ifin$="s"goto23
  23. 22 dn=4:sa=7:print
  24. 23 print:open4,dn,sa:d$=c$:t=0:open1,8,5,b$(p%):print"[158]press any key to pause printing ...
  25. 24 [161]#1,a$:ok[178](st):[139]de[178]3[137]27
  26. 25 [139]a$[178]"load"[167]a$[178][199](17)
  27. 26 [137]30
  28. 27 [139]a$[179][177]"load"[137]30
  29. 28 [153]" press any key to continue wait
  30. 29 getin$:ifin$=""goto29
  31. 30 getz$:ifz$=""then35
  32. 31 print:print"[159] [208]ause:  <[205]> = [205]enu, <[195]> = [195]ontinue [146]
  33. 32 [161]z$:[139]z$[179][177]"m"[175]z$[179][177]"c"[167]32
  34. 33 [139]z$[178]"m"[167]43
  35. 34 z$[178]"
  36. 35 print#4,a$;:ifok<>0goto41
  37. 36 ifde=3goto24
  38. 37 ifa$<>chr$(34)goto24
  39. 38 ift=0thend$="":t=1:goto24
  40. 39 ift=1thend$=c$:t=0:goto24
  41. 40 print"error
  42. 41 [153]"  open press any key wait
  43. 42 geta$:ifa$=""then42
  44. 43 close4:close1:goto14
  45. 50 print"[147]"
  46. 51 print"[155] -[212]he [201]nside [195]onnection #3- ":print
  47. 52 print"[152][201]mported by [205]otley/[196]eath[211]ector"
  48. 53 print:print"[201] didn't put a intro in it b'coz it's"
  49. 54 print"programmed in [194]asic... [210]emember that theinfo";
  50. 55 print"mation is important,not the looks."
  51. 56 print"[193]nyway,it's a good [200]/[208] mag for all modem";
  52. 57 print"users.":print"                    /[205]otley":print:print"   [208]ress [211]pace"
  53. 58 geta$:ifa$=""then 58
  54. 59 print"[147]":goto1
  55.